﻿
Partial Class Paginas_CombosGenConsulta
    Inherits System.Web.UI.Page
    Dim Url_destino As String = "2,CombosGenIngreso.aspx?"
    Dim NombreCombo As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Introducir aquí el código de usuario para inicializar la página
        If Not Page.IsPostBack Then
            Imprimir.Attributes.Add("onclick", "print();")

            Dim resultado As New DataSet
            Dim Rutinas As New DataServices.Rutinas

            'Session("accesos") = Request.QueryString("accesos")
            'Call Rutinas.Valida_Acceso(sender, e, Page, "Form1", Session("accesos"))
            NombreCombo = Request.QueryString("nombre")

            Busca(NombreCombo)

        End If

    End Sub
    Private Sub Busca(ByVal nombrecombo As String)

        Dim resultado As New DataSet
        Dim Rutinas As New DataServices.Rutinas

        Dim T_tabla As String = " From CombosValores "
        Dim Csql As String = "SELECT CONVERT(VARCHAR(10),ncodigo_pki) + ';' + TNOMBRE as campo0, tdescripcion as campo1, tNombre as campo2"
        Csql = Csql & T_tabla & " where Cestado=1 and tnombre='" & nombrecombo & "' "


        Csql = Csql & " order by campo2"

        resultado = Rutinas.ExtraeSql(Csql)
        Try
            If Csql <> "" Then
                Call Rutinas.Grilla_link(resultado.Tables(0), grilla, Url_destino & "accion=1&", "Valor", "Nombre Objeto")
            End If
        Catch ex As Exception

        End Try



    End Sub

    Private Sub ingresar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ingresar.Click
        Response.Redirect(Mid(Url_destino, 3) & "accion=0&NOMBRE=" & Request.QueryString("nombre"))
    End Sub

    Private Sub Imprimir_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Imprimir.Click
        Busca(Request.QueryString("nombre"))
    End Sub
End Class

